(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     16702,        601]
NotebookOptionsPosition[     12286,        444]
NotebookOutlinePosition[     12902,        468]
CellTagsIndexPosition[     12823,        463]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/DipolarInteractionTable", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["DipolarInteractionTable", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"DipolarInteractionTable", "[", 
   RowBox[{
   "coordList_", ",", "b_", ",", "theta_", ",", "phi_", ",", "gammaList_", 
    ",", 
    RowBox[{"component_:", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], 
      "}"}]}]}], "]"}]], "InlineFormula"],
 " \[LineSeparator]DipolarInteractionTable"
}], "Usage",
 CellChangeTimes->{{3.498694766643669*^9, 3.498694766643875*^9}},
 CellID->982511436],

Cell["internal algorithm is realized by mathlink", "Notes",
 CellChangeTimes->{{3.498694817998035*^9, 3.498694828076578*^9}},
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[ButtonBox["DipolarInteraction",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/DipolarInteraction"]], "SeeAlso",
 CellChangeTimes->{{3.498694784719722*^9, 3.498694796329806*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[BoxData[
 RowBox[{
  RowBox[{"exampleCoords", "=", 
   RowBox[{"LoadLattice", "[", 
    RowBox[{"\"\<Diamond\>\"", ",", "$DiamondLatticeConst", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.498643262970081*^9, 3.498643267521884*^9}},
 CellLabel->"In[63]:=",
 CellID->1653152907],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"exampleBath", "=", 
  RowBox[{"GenerateBath", "[", 
   RowBox[{"exampleCoords", ",", "$DiamondNatureAbundance", ",", "1"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.498643285061036*^9, 3.498643312423455*^9}, {
  3.49864341236275*^9, 3.498643415464169*^9}, {3.498694875193352*^9, 
  3.49869487927407*^9}},
 CellLabel->"In[64]:=",
 CellID->1354900819],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.785`"}], ",", "1.785`", ",", "3.57`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1.785`"}], ",", 
     RowBox[{"-", "5.3549999999999995`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.57`"}], ",", "3.57`", ",", "3.57`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8925`", ",", 
     RowBox[{"-", "4.4624999999999995`"}], ",", "6.2475`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.57`"}], ",", 
     RowBox[{"-", "3.57`"}], ",", 
     RowBox[{"-", "7.14`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "4.4624999999999995`", ",", "2.6774999999999998`", ",", 
     "9.817499999999999`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.14`", ",", "8.924999999999999`", ",", 
     RowBox[{"-", "1.785`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.785`"}], ",", "8.924999999999999`", ",", 
     RowBox[{"-", "7.14`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8.924999999999999`", ",", 
     RowBox[{"-", "7.14`"}], ",", "5.3549999999999995`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.498643312870898*^9, 3.498694868285868*^9},
 CellLabel->"Out[64]=",
 CellID->712610289]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DipolarInteractionTable", "[", 
   RowBox[{"exampleBath", ",", "0.0300", ",", 
    RowBox[{"0.0", "Degree"}], ",", 
    RowBox[{"0.0", "Degree"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{"$GammaC13", ",", 
      RowBox[{"{", 
       RowBox[{"Length", "[", "exampleBath", "]"}], "}"}]}], "]"}], ",", 
    "3"}], "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.498694881922588*^9, 3.498694947798037*^9}},
 CellLabel->"In[67]:=",
 CellID->1765978911],

Cell[BoxData[
 TagBox[GridBox[{
    {"0.`", 
     RowBox[{"-", "0.010210396373315117`"}], "2.9658521334019508`", 
     "0.12054283580826236`", 
     RowBox[{"-", "0.031564118778749144`"}], 
     RowBox[{"-", "0.08670957029441628`"}], "0.006643508778820368`", 
     "0.02065034761399272`", "0.0160747141284141`"},
    {
     RowBox[{"-", "0.010210396373315117`"}], "0.`", "0.0018848009521772293`", 
     "0.00907987545439491`", 
     RowBox[{"-", "0.9512975153312461`"}], 
     RowBox[{"-", "0.012369434263150106`"}], 
     RowBox[{"-", "0.031456260522627996`"}], "0.02073281047394952`", 
     "0.0012277236976850452`"},
    {"2.9658521334019508`", "0.0018848009521772293`", "0.`", 
     "0.05394419614895935`", 
     RowBox[{"-", "0.02065034761399273`"}], 
     RowBox[{"-", "0.032116934783279406`"}], "0.007046648261712928`", 
     "0.024549870161249317`", "0.0100291057959058`"},
    {"0.12054283580826236`", "0.00907987545439491`", "0.05394419614895935`", 
     "0.`", 
     RowBox[{"-", "0.007395931103151722`"}], 
     RowBox[{"-", "0.11891218941640577`"}], "0.005256861523431355`", 
     "0.006690603221484772`", "0.0560692736569347`"},
    {
     RowBox[{"-", "0.031564118778749144`"}], 
     RowBox[{"-", "0.9512975153312461`"}], 
     RowBox[{"-", "0.02065034761399273`"}], 
     RowBox[{"-", "0.007395931103151722`"}], "0.`", 
     RowBox[{"-", "0.009220974159746462`"}], 
     RowBox[{"-", "0.01586316600001708`"}], 
     RowBox[{"-", "0.006643508778820381`"}], 
     RowBox[{"-", "0.0033530756311445434`"}]},
    {
     RowBox[{"-", "0.08670957029441628`"}], 
     RowBox[{"-", "0.012369434263150106`"}], 
     RowBox[{"-", "0.032116934783279406`"}], 
     RowBox[{"-", "0.11891218941640577`"}], 
     RowBox[{"-", "0.009220974159746462`"}], "0.`", "0.018844140168714375`", 
     "0.0014570647015677918`", "0.008775345082939125`"},
    {"0.006643508778820368`", 
     RowBox[{"-", "0.031456260522627996`"}], "0.007046648261712928`", 
     "0.005256861523431355`", 
     RowBox[{"-", "0.01586316600001708`"}], "0.018844140168714375`", "0.`", 
     RowBox[{"-", "0.03733519728062199`"}], "0.007235076900665198`"},
    {"0.02065034761399272`", "0.02073281047394952`", "0.024549870161249317`", 
     "0.006690603221484772`", 
     RowBox[{"-", "0.006643508778820381`"}], "0.0014570647015677918`", 
     RowBox[{"-", "0.03733519728062199`"}], "0.`", "0.0035441780156231983`"},
    {"0.0160747141284141`", "0.0012277236976850452`", "0.0100291057959058`", 
     "0.0560692736569347`", 
     RowBox[{"-", "0.0033530756311445434`"}], "0.008775345082939125`", 
     "0.007235076900665198`", "0.0035441780156231983`", "0.`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.7]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.498694928279287*^9, 3.498694948256871*^9}},
 CellLabel->"Out[67]//TableForm=",
 CellID->1291984192]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{0, Automatic}, {Automatic, 25}},
CellContext->"Global`",
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "iso8859-1"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[10766, 386, 100, 2, 56, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 12684, 456}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 325, 14, 26, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[895, 38, 68, 1, 30, "CategorizationSection",
 CellID->1122911449],
Cell[966, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1048, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1130, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1209, 53, 79, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1325, 59, 55, 1, 20, "KeywordsSection",
 CellID->477174294],
Cell[1383, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1465, 68, 65, 1, 20, "TemplatesSection",
 CellID->1872225408],
Cell[1533, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1630, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1715, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1799, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1918, 90, 53, 1, 20, "DetailsSection",
 CellID->307771771],
Cell[1974, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2040, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2112, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2179, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2251, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2315, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2379, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2445, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2526, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2630, 132, 66, 1, 64, "ObjectName",
 CellID->1224892054],
Cell[2699, 135, 501, 14, 97, "Usage",
 CellID->982511436],
Cell[3203, 151, 146, 2, 26, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[3386, 158, 57, 1, 44, "TutorialsSection",
 CellID->250839057],
Cell[3446, 161, 45, 1, 17, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3528, 167, 83, 1, 31, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3614, 170, 58, 1, 17, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3709, 176, 65, 1, 31, "RelatedLinksSection",
 CellID->1584193535],
Cell[3777, 179, 49, 1, 17, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3863, 185, 55, 1, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[3921, 188, 217, 4, 17, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[4175, 197, 57, 1, 31, "MoreAboutSection",
 CellID->38303248],
Cell[4235, 200, 46, 1, 17, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[4318, 206, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[4677, 219, 609, 19, 51, "Input",
 CellID->1653152907],
Cell[CellGroupData[{
Cell[5311, 242, 377, 9, 51, "Input",
 CellID->1354900819],
Cell[5691, 253, 1283, 38, 87, "Output",
 CellID->712610289]
}, Open  ]],
Cell[CellGroupData[{
Cell[7011, 296, 500, 13, 73, "Input",
 CellID->1765978911],
Cell[7514, 311, 3203, 69, 151, "Output",
 CellID->1291984192]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10766, 386, 100, 2, 56, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[10869, 390, 125, 3, 34, "ExampleSection",
 CellID->1293636265],
Cell[10997, 395, 148, 3, 22, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[11170, 402, 127, 3, 22, "ExampleSection",
 CellID->2061341341],
Cell[11300, 407, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[11433, 412, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[11578, 418, 131, 3, 22, "ExampleSection",
 CellID->258228157],
Cell[11712, 423, 142, 3, 22, "ExampleSection",
 CellID->2123667759],
Cell[11857, 428, 135, 3, 22, "ExampleSection",
 CellID->1305812373],
Cell[11995, 433, 140, 3, 22, "ExampleSection",
 CellID->1653164318],
Cell[12138, 438, 132, 3, 22, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
